# load packages

pacman::p_load(tidyverse, fixest)

### table A.6 (witnessing crime in pools and AfD vote intention) ----

# load data
pools <- read_rds("data/survey.rds")

# run regression
m1 <- feols(vote_afd ~ experience_pool_crime +
                as.numeric(age) + factor(male) + factor(education) + factor(family_status) +
                factor(religious) + factor(parents_born_in_ger), data = pools, cluster=~zip)

summary(m1)

# clean
rm(list = ls())